﻿Public Class FrmMantenimientoBasicoEditar

    Private mMantenimientoBS As BS.MantenimientoBasico
    Private mMantenimientoBE As BE.MantenimientoBasico
    Private mId As Integer


    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Private Sub FrmMantenimientoBasico_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        mMantenimientoBS = New BS.MantenimientoBasico
        mMantenimientoBE = mMantenimientoBS.Obtener(Me.Id)

        Me.txtNombre.Text = mMantenimientoBE.Nombre
        Me.txtDescripcion.Text = mMantenimientoBE.Descripcion


    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.mMantenimientoBS = New BS.MantenimientoBasico


            If DatosValidos() Then
                If DatosValidos() Then

                    mMantenimientoBE.Nombre = txtNombre.Text
                    mMantenimientoBE.Descripcion = txtDescripcion.Text

                If (Not mMantenimientoBS.Editar(mMantenimientoBE)) Then
                    MessageBox.Show("Problemas al Editar")
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                End If
                End If

        End If


    End Sub

    Function DatosValidos() As Boolean
        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty
        Me.txtNombre.Text = Me.txtNombre.Text.Trim
        Me.txtDescripcion.Text = Me.txtDescripcion.Text.Trim


        If Me.txtNombre.Text = String.Empty Then
            mensajeDeValidacion = "Nombre es requerido"
            primerControl = Me.txtNombre
        End If


        If Me.txtDescripcion.Text = String.Empty Then
            mensajeDeValidacion &= vbCrLf & "Descripción es requerida"

            If primerControl Is Nothing Then
                primerControl = Me.txtDescripcion
            End If

        End If

        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
            Return False

        End If

        Return True
    End Function

End Class
